home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 Special Issue / rerun-1989-special-issue.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  84 lines

  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>13 then n$(i)=left$(n$(i),13)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 280 getm$:ifm$=""then 280
  28. 290 ifm$<"a"orm$>chr$(64+f)then280
  29. 300 p=asc(m$)-64:print"[147]"
  30. 310 if d$(p)<>"run" then 340
  31. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  32. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  33. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  34. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  35. 360 a$=d$(p)
  36. 370 a$=a$+chr$(13)
  37. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  38. 390 new
  39. 400 poke 53280,0:poke 53281,0
  40. 410 ov=peek(53265)
  41. 420 poke 53265,peek(53265)and 247
  42. 430 poke 53265,(peek(53265)and248)+7
  43. 440 pr$="[209][165]                                    [167][209]"
  44. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  45. 460 md$="[209][165][194]                                  [194][167][209]"
  46. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  47. 480 hd$="special issue #5 rerun"
  48. 490 print"[147]";
  49. 500 print tp$;:gosub 590
  50. 510 for i=1 to 2:print md$;:gosub 590:next
  51. 520 print"[145]";hd$;:gosub 590
  52. 530 print:print"[145]";
  53. 540 for i=1 to 1:print md$;:gosub 590:next
  54. 550 print bt$;:gosub 590
  55. 560 for i=1 to 19:print pr$;:gosub 590:next
  56. 570 poke 53265,27
  57. 580 return
  58. 590 rem sound routine here
  59. 600 poke v+23,15:poke v+4,9:poke v+5,0:poke v,1:poke v+3,32:poke v+3,33
  60. 610 return
  61. 1000 rem file list
  62. 1010 rem first entry is the number of programs on this disk
  63. 1020 rem followed by each filename
  64. 1030 rem second data item is run or sysxxxxx
  65. 1040 rem run if file is basic and sys xxxxx if ml
  66. 1050 data 17
  67. 1060 data show of hands,run
  68. 1070 data sprite db 64,run
  69. 1080 data tag,run
  70. 1090 data break-away,run
  71. 1100 data gravitron boot,run
  72. 1110 data sprite demo,run
  73. 1120 data sprite basic,run
  74. 1130 data sound.1,run
  75. 1140 data sound.3,run
  76. 1150 data sound.6,run
  77. 1160 data sound.10,run
  78. 1170 data sound.11,run
  79. 1180 data sound.12,run
  80. 1200 data clock demo,run
  81. 1210 data ball demo,run
  82. 1220 data documentation,run
  83. 1260 data "",run
  84.